function found(z : integer) : boolean;  { funcion que determina si un }
var                                     { numero ya existe en el arreglo }
   x, y : integer;
   salir : boolean;   { variable logica para determinar si el proceso
                        debe continuar o romper con el ciclo }

begin
   salir := FALSE;    { esta variable es para romper el ciclo cuando }
   x := 1;            { se encuentre un numero que ya ha sido seleccionado }
   while (x < 6) AND not salir do
      begin
      y := 1;
      while (y < 6) AND not salir do
         begin
         if cuadro[x,y] = z then { si encuentra que el numero seleccionado }
            begin                { al azar ya esta en el recuadro entonces }
            found := TRUE;       { devuelve un valor verdadero y sale del  }
            salir := TRUE        { ciclo, no continua buscando mas valores }
            end
         else
            found := FALSE;
         y := y + 1;
      end;
      x := x + 1;
   end;
end;